home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fritz: All Fritz
/
All Fritz.zip
/
All Fritz
/
FILES
/
COMMADIO
/
ODYSSEY.LZH
/
ODY150SH.LZH
/
REGISTER.SCR
< prev
next >
Wrap
Text File
|
1992-07-14
|
6KB
|
123 lines
/*
This script file will automatically dial the TRIUS BBS line, and
then give you an opportunity to either simply leave a message, or,
order a registered copy of ODYSSEY while on line.
The script uses the file REGISTER.MSG which you should edit as
needed, prior to invoking execution of the script.
Please, note that the purpose of this script is not to display all
the capabilities of ODYSSEY but simply to give you a glimpse of the
powerful Pascal-like structure of the ODYSSEY script language ad help
you order a registered copy at the same time.
*/
SCRIPT register;
VAR yn:String;
VAR success,connect:Flag;
VAR fullscreen:Number;
/*...............................................................*/
Proc CallTRIUS();
Begin
Connect := false;
If Dial("REGISTER") then
Connect := True;
When("for help):","m|");
When("Subject:","ODYSSEY|");
Waitfor("1:");
Success := Upload(ASCII,"register.msg");
If Success = True then
Delay(1);
Transmit("|");
Delay(1);
Transmit ("s|");
write(" ");
Write("| ╔═══════════════════════════════════════════════════════╗|");
Write(" ║ You may enter the command 'G' to Logoff at any time! ║|");
Write(" ║ Feel free to stay on and browse around the BBS. ║|");
Write(" ║ Exiting the script now. ║|");
Write(" ╚═══════════════════════════════════════════════════════╝|");
Transmit ("|");
Rdkey();
Exit();
else
End;
End;
End;
Proc Null();
Begin
End;
/*.......................................................................*/
BEGIN
ClrScr();
Write(" ╔═══════════════════════════════════════════════════════════════════╗|");
Write(" ║ This procedure will make a long distance phone call to North ║|");
Write(" ║ Andover, Massachusetts, to the TRIUS BBS! ║|");
Write(" ║ You may press ESC at any point to end this call. ║|");
Write(" ║ ║|");
Write(" ║ Do you wish to continue? (Enter Y or N, press ENTER) ║|");
Write(" ╚═══════════════════════════════════════════════════════════════════╝|");
Read(yn);
If yn = "y" then
Write(" ╔══════════════════════════════════════════════════════════════════════╗|");
Write(" ║ At this point, you may use the ODYSSEY built-in editor to customize ║|");
Write(" ║ the text of the REGISTER.MSG file which may then be used to register ║|");
Write(" ║ on line. After you have finished modifying the text, ║|");
Write(" ║ ║|");
Write(" ║ Press F2, to save te modified text file, and ║|");
Write(" ║ Pres ESC to exit the ODYSSEY editor and return to ready mode. ║|");
Write(" ║ ║|");
Write(" ║ Press any key to continue... ║|");
Write(" ╚══════════════════════════════════════════════════════════════════════╝|");
Priority (TRUE);
RdKey();
Priority (FALSE);
Edit("register.msg");
Write(" ╔═════════════════════════════════════════════════════════════════════════╗|");
Write(" ║ ODYSSEY will now call the TRIUS BBS in order to leave a private message ║|");
Write(" ║ to the Sysop. ordering your registered copy of the program. ║|");
Write(" ║ ║|");
Write(" ║ If this is the first time calling our BBS, you will need to supply your ║|");
Write(" ║ name, telephone #, and other information. Once you are finished ║|");
Write(" ║ supplying the required information, your message will be posted! ║|");
Write(" ║ ║|");
Write(" ║ Press Any Key to Continue... ║|");
Write(" ╚═════════════════════════════════════════════════════════════════════════╝|");
Priority (TRUE);
RdKey();
Priority (FALSE);
CallTRIUS();
While Online() do
Null();
End;
If connect = false then
Write(" ┌───────────────────────────────────────────────────────┐|");
Write(" │ ╔═══════════════════════════════════════════════════╗ │|");
Write(" │ ║ Something went wrong! The dialing directory ║ │|");
Write(" │ ║ (Alt-N, F2) might need to be modified if you are ║ │|");
Write(" │ ║ calling from withing the 508 area code. ║ │|");
Write(" │ ╚═══════════════════════════════════════════════════╝ │|");
Write(" └───────────────────────────────────────────────────────┘|");
else
Write(" ┌───────────────────────────────────────────────────────┐|");
Write(" │ ╔═══════════════════════════════════════════════════╗ │|");
Write(" │ ║ Your connection to the TRIUS BBS was interrupted ║ │|");
Write(" │ ║ before your message could be posted! ║ │|");
Write(" │ ║ You might want to try it again, or call: ║ │|");
Write(" │ ║ 508-794-0140 (Voice) ║ │|");
Write(" │ ╚═══════════════════════════════════════════════════╝ │|");
Write(" └───────────────────────────────────────────────────────┘|");
End;
End;
END;